home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / devel / vbcc-68k-src / machines / amiga68k / libsrc / math / isinf.c < prev    next >
Text File  |  1999-01-01  |  128b  |  6 lines
  1. int isinf(double a)
  2. {
  3.   unsigned long *b=(unsigned long *)&a;
  4.   return (b[0]&0x7ff00000)==0x7ff00000&&!(b[0]&0xfffff)&&!b[1];
  5. }
  6.